Remove["Global`*"]
xv={1.4,1.5,1.7};
fv={0.98545,0.99749,0.99167};
data=Transpose[Append[{xv},fv]];
c=Table[C[i],{i,0,2}];
p=Table[x^i,{i,0,2}].c;
a=Transpose[Table[Table[xv[[i]]^j,{i,1,3}],{j,0,2}]];
sol=Solve[a.c==Table[fv[[i]],{i,1,3}],c];
Print["(Subscript[p, 2])(x) = ",pp=p/.sol[[1]]," | (Subscript[p, 2])'(",π/2,") = " , D[pp,x]/.x->π/2]
Print["M Fit = ",Fit[{data[[1]],data[[2]],data[[3]]},{1,x,x^2},x]]